home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / mail / thor201.lha / THOR_2.0 / thor.lha / rexx / examples / FindDupes.br < prev    next >
Text File  |  1995-05-15  |  514b  |  32 lines
  1. /*  FindDupes.br 
  2.  *
  3.  *  Stub to use FINDDUPBRMSG
  4.  *
  5.  */
  6.     parse arg arguments
  7.  
  8.     if ~show('p', 'BBSREAD') then do
  9.         address command
  10.             "run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
  11.             "WaitForPort BBSREAD"
  12.     end
  13.  
  14.     address BBSREAD
  15.  
  16.     if arguments = '' then 
  17.     do
  18.         GETCOMMANDINFO FINDDUPBRMSG TEMP
  19.  
  20.         say 'FindDupes.br 3.1 (28.09.94)'
  21.         say 'Lets you use the FINDDUPBRMSG arexx command from CLI.'
  22.         say 'Template:' TEMP
  23.         exit
  24.     end
  25.  
  26.     FINDDUPBRMSG arguments
  27.     if(rc ~= 0) then
  28.     do
  29.         say BBSREAD.LASTERROR
  30.         exit
  31.     end
  32.